home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / xmas.arc / XMAS.C (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  1KB  |  44 lines
  1. 1 REM *** 1983  BY  ROBERT K. SCHMID.
  2. 2 REM
  3. 3 REM
  4. 4 REM
  5. 10 POKE 53280,0:POKE 53281,0:PRINT"[147]";
  6. 14 PRINT"                *      *"
  7. 16 PRINT"  *         *      [206][205]      *         *"
  8. 17 PRINT
  9. 18 PRINT"      *           [206][209] [205]          *"
  10. 19 PRINT
  11. 20 PRINT"            *    [206]   [209][205]    *"
  12. 21 PRINT
  13. 22 PRINT"                [206] [209] [209]  [205]"
  14. 23 PRINT
  15. 24 PRINT"     *         [206][209]  [209]  [209] [205]         *"
  16. 25 PRINT
  17. 26 PRINT"         *    [206]  [209]     [209] [205]    *"
  18. 27 PRINT
  19. 28 PRINT" *           [206] [209]  [209]   [209] [209] [205]           *"
  20. 29 PRINT
  21. 30 PRINT"    *       [206]   [209]   [209]  [209]   [205]       *"
  22. 31 PRINT
  23. 32 PRINT"    *       [206]   [209]   [209]  [209]   [205]       *"
  24. 33 PRINT
  25. 34 PRINT"        *  [206] [209]    [209]      [209]  [205]  *"
  26. 35 PRINT
  27. 36 PRINT" *        [206]     [209]     [209]    [209] [205]        *"
  28. 38 PRINT"          [163][163][163][163][163][163][163][163][163][163][194][163][163][163][163][163][163][163][163][163]"
  29. 43 PRINT"                  [195][195][177][195][195]"
  30. 44 FOR A=1 TO 3000:NEXT A
  31. 45 PRINT"[147]MERRY CHRISTMAS & A HAPPY NEW YEAR FROM"
  32. 46 PRINT:PRINT:PRINT
  33. 48 PRINT"    [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  34. 49 PRINT"    [194]                             [194]"
  35. 50 PRINT"    [194]       [146]      [223][146]   [146]    [146]  [169]   [223][146] [194]"
  36. 51 PRINT"    [194]     [146]     [146]    [146]   [146]    [146]   [146]     [194]"
  37. 52 PRINT"    [194]     [146]        [146][169]   [146]    [146]   [146]   [223][146] [194]
  38. 53 [153]"    PEEK     WAIT     WAIT       WAIT    WAIT   WAIT    WAIT PEEK"
  39. 54 [153]"    PEEK     WAIT     WAIT      (null)   WAITSTEP  (null)   WAITSTEP PEEK"
  40. 55 [153]"    PEEK                             PEEK"
  41. 56 [153]"    MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  42. 60 [129] A[178]1 [164] 3000:[130] A
  43. 70 [137] 1
  44.